﻿Imports BUS

Public Class DanhSachThuoc

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub DanhSachThuoc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim hsBus As New ThuocBUS()
        dt = hsBus.LayBang()
        dtgv_dsthuoc.DataSource = dt
        'Dim dt As DataTable
        'Dim hsBus As New ThuocBUS()
        'dt = hsBus.LayBang()
        'DataGridViewDanhsachthuoc.DataSource = dt

    End Sub


End Class